COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(lap tak subr)
C00003 00003	time
C00004 ENDMK
C⊗;
(lap tak subr)
(jrst 0 time)
tak1
(caig a 0 b)
 (popj p)
tak2
(add fxp (% 0 0 5 5))
(124←33 a -2 fxp)	;dmovem
(movem c 0 fxp)
(movei a -1 a)
(caile a 0 b)
(pushj p tak2)
(movem c -4 fxp)
(120←33 a -1 fxp)	;dmove
(move c -2 fxp)
(movei a -1 a)
(caile a 0 b)
(pushj p tak2)
(movem c -3 fxp)
(move a 0 fxp)
(120←33 b -2 fxp)	;dmove
(movei a -1 a)
(caile a 0 b)
(pushj p tak2)
(120←33 a -4 fxp)
(sub fxp (% 0 0 5 5))
(caig a 0 b)
 (popj p)
(jrst 0 tak2)
time
;(movei a 1)
;(104←33 0 766)
;(jfcl)
;(ashc 2 -13)
;(divi 2 25.)
;(movem 2 tim1)
 (move tt me)
 (calli tt 23.)
 (movem tt tim1)
;(movei d 1000.)
;again
(movei a 18.)
(movei b 12.)
(movei c 6.)
(pushj p tak1)
;(sojg d again)
;(movei a 1)
;(104←33 0 766)
;(jfcl)
;(ashc 2 -13)
;(divi 2 25.)
 (move tt me)
 (calli tt 23.)
 (sub tt tim1)
;(sub 2 tim1)
;(idivi 2 1000.)
;(move tt 2)
(jrst 0 fix1)
me (0)
tim1 (0)
()